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* corecalc.prg 

* Procedure to perform core calculations as needed 

* when called, main proc will provide "receptacle" params to be passed back 

PARAMETERS mport , m_mkt , m_risk, mpwr , mis sue 

* mport = Stock, Future, Option, All, Position 

* m_mkt,m_risk = passback for mktval , risk, power 

* missue = specific position to check (eg: IBM} 

IF mport = "P" ScSc checking position 
missue = LEFT (missue+SPACE ( 10 } ,10) 

ELSE 

missue = SPACE (10) s 
ENDIF 

mselect = SELECT () 
SELECT portfol 



endif 

m_smkt = 0 
m_srisk = 0 
m_fmkt = 0 
m_f risk = 0 
m_omkt = 0 
m_ori sk - 0 
m_imkt = 0 
m_irisk - 0 
m_ longs = 0 
m_shorts = 0 
GO TOP 



if eof() 



mProwHold 



0 



else 



mProwHold 



recno ( ) 



Fig. 
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DO WHILE .NOT. EOF ( ) 

m_imatch = ( stock = missue ) && . t . or . f . result 

**** These two vars are for individual issue values, rest are sums 

mlsVal = 0 

mlsDolrisk = 0 

DO CASE 

CASE Sfo = "S" JUST STOCKS 

mlsVal - FxConv ( shares * last_sale , stock ) 
IF portf ol->short 

m_smkt = m_smkt - inlsVal 

mlsDolrisk = FxConv ( shares *ABS { stop- last__sale ) + comm_in* shares , stock} 
m_shorts - m_shorts + mlsVal 

ELSE 

m_smkt - m_smkt + mlsVal 

mlsDolrisk = FxConv ( shares *ABS ( last_sale-stop) + comm_in* shares , stock) 
m_ longs = m_ longs + mlsVal 
ENDIF 

m_srisk = m_srisk + mlsDolRisk 
IF m_imatch 

m_imkt = m_imkt + mlsVal 

m_irisk = m_irisk + mlsDolrisk 
ENDIF 

CASE sfo = "F" JUST FUTURES 

IF portf ol->short 

mlsVal = FxConv ( (buy_price-last_sale) *shares*gear, stock) 

ELSE 

mlsVal = FxConv ( ( last_sale-buy_price ) *shares*gear , stock) 
ENDIF 

m_fmkt = m_fmkt + mlsVal 
IF portfol->short 

mlsDolrisk = FxConv ( shares *ABS ( stop- last_sale) *gear + 
(comm_in* shares) , stock) 

m_frisk = m_frisk + mlsDolrisk 

ELSE 

mlsDolrisk - FxConv ( shares *ABS ( last_sale-stop) *gear + 
(comm_in* shares) , stock) 

m_frisk = m_frisk + mlsDolRisk 
ENDIF 

IF m_imatch 

n\_imkt = m_imkt + mlsVal 

rtuirisk = m_irisk + mlsDolrisk 
ENDIF 

CASE sfo = "0* JUST OPTIONS 

mlsVal = FxConv (shares* las t_sale* 100, stock) 
IF portfol->short 

m_omkt = iruomkt - mlsVal 

mlsDolrisk = FxConv ( 100* shares *ABS (stop- las t_sale) + (comm_in* shares) , stock) 
nuorisk = m_orisk + mlsDolrisk 
m_shorts = m__shorts + mlsVal 
ELSE 

n\_omkt = n\_omkt + mlsVal 

mlsDolrisk = FxConv < 100 * shares *ABS( las t_sale- stop) + (camm_in* shares) , stock) 
nuorisk = nuorisk + mlsDolrisk 
m_longs = nulongs + mlsVal 
ENDIF 

IF iruimatch 

n\_imkt = io_imkt + mlsVal 
m_irisk = nuirisk + mlsDolrisk 
ENDIF 
ENDCASE 
SKIP 
ENDDO 



Fig. 2j 
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DO CASE 

CASE mport = "A" ALL /TOTAL EVERYTHING 

m_mkt = m_smkt + m_f mkt + m_omkt 

m_risk = m_srisk + m_frisk + m_orisk 
CASE irport = "S" JUST STOCKS 

m__mkt = m_smkt 

m_risk = m_srisk 
CASE report = "F" 

m_mkt = m_fmkt 

m_risk = m_frisk 
CASE mport = "0" 

m_mkt = m__omkt 

m_risk = m_orisk 
CASE mport = "P" 

m_mkt = m_imkt 

m_risk - m_irisk 
ENDCASE 



JUST FUTURES 



JUST OPTIONS 



JUST INDIVIDUAL POSITIONS 



mpwr = (2* {mtdbalance+rnwdbalance+m_longs -m_shorts ) ) - m^longs - m_short 

sele portfol 

if mProwHold > 0 

goto (mProwHold) 

endif 

SELECT {mselect) 



RETURN 



Fig- Zf 
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Figure 29 
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